home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / pc / program / main.dxr / 00056.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  280 b   |  12 lines
  1. on windowchange kabename
  2.   global cursorpointer, cursorwait, wallname
  3.   if wallname = kabename then
  4.     exit
  5.   end if
  6.   cursor(cursorwait)
  7.   set wallname to kabename
  8.   set the picture of cast "kabePhoto" to the picture of cast wallname
  9.   updateStage()
  10.   cursor(cursorpointer)
  11. end
  12.